Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_14264.txt

Text File | 1990-08-14 | 18.5 KB | 922 lines

-- card: 14264 from stack: in
-- bmap block id: 111407
-- flags: 4000
-- background id: 14423
-- name: Term 1 Mark
----- HyperTalk script -----
on openCard
  setMenuItem 1091,1,"New Task"
  enableMenuItem 1093,4,true
  enableMenuItem 1093,5,true
  enableMenuItem 1093,6,true
  checkMenuItem 1093,4,true
  checkMenuItem 1093,5,false
  checkMenuItem 1093,6,false
  put "Total Points" into card field "Weight"
end openCard

on closeCard
  setMenuItem 1091,1,"New Bin"
end closeCard

on doMenu menuItem
  if menuItem is "Clear" then
    if the selectedField is empty then exit doMenu
    lock screen
    repeat with index = 1 to 3
      if the number of the selectedField is index then
        subtract 1 from background field "Tasks"
        repeat with count1 = 1 to 4
          if short name of this card is background field count1 then
            add 1 to background field (count1 + 4)
          end if
        end repeat
        repeat with count1 = (index + 1) to 3
          if visible of card field count1 then
            put card field count1 into card field (count1 - 1)
            repeat with count2 = 1 to 5
              put card field id ((count1 * 5) + count2) into card field id (((count1 - 1) * 5) + count2)
            end repeat
            repeat with count2 = 1 to 5
              put card field id ((count1 * 5) + count2 + 15) into card field id (((count1 - 1) * 5) + count2 + 15)
            end repeat
          else
            hide card field (count1 - 1)
            repeat with count2 = 1 to 5
              put empty into card field id (((count1 - 1) * 5) + count2)
            end repeat
            repeat with count2 = 1 to 5
              put empty into card field id (((count1 - 1) * 5) + count2 + 15)
            end repeat
            exit repeat
          end if
        end repeat
        if index = 3 OR count1 = 3 then
          hide card field 3
          repeat with count2 = 1 to 5
            put empty into card field id (count2 + 15)
          end repeat
          repeat with count2 = 1 to 5
            put empty into card field id (count2 + 30)
          end repeat
        end if
        exit repeat
      end if
    end repeat
    unlock screen
  else if menuItem is "Total Points" then
    put menuItem into card field "Weight"
    checkMenuItem 1093,4,true
    checkMenuItem 1093,5,false
    checkMenuItem 1093,6,false
  else if menuItem is "Scalar Weight" then
    put menuItem into card field "Weight"
    checkMenuItem 1093,4,false
    checkMenuItem 1093,5,true
    checkMenuItem 1093,6,false
  else if menuItem is "Percentage Weight" then
    put menuItem into card field "Weight"
    checkMenuItem 1093,4,false
    checkMenuItem 1093,5,false
    checkMenuItem 1093,6,true
  else pass doMenu
end doMenu


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  lock screen
  set cursor to watch
  repeat with index = 1 to the number of bg fields
    put bg field index into item index of array
  end repeat
  go to first card of this background
  repeat with index = 1 to the number of bg fields
    put item index of array into bg field index
  end repeat
  unlock screen
  set cursor to hand
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=54 right=328 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 3 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=142 top=84 right=134 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 4 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=214 top=84 right=134 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 5 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=286 top=84 right=134 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=135 right=150 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=151 right=166 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=167 right=182 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=183 right=198 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=199 right=214 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=135 right=150 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=151 right=166 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=167 right=182 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=183 right=198 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=199 right=214 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=135 right=150 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=151 right=166 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=167 right=182 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=183 right=198 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=199 right=214 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=233 right=248 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=249 right=264 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=265 right=280 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=281 right=296 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=142 top=297 right=312 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=233 right=248 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=249 right=264 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=265 right=280 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=281 right=296 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=297 right=312 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=233 right=248 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=249 right=264 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=265 right=280 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 34 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=281 right=296 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 35 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=297 right=312 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=56 right=71 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseDown
  set icon of me to "Close Box Hi"
end mouseDown

on mouseLeave
  set icon of me to "Close Box"
end mouseLeave

on mouseUp
  set icon of me to "Close Box"
  lock screen
  set cursor to watch
  repeat with index = 1 to the number of bg fields
    put bg field index into item index of array
  end repeat
  go to first card of this background
  repeat with index = 1 to the number of bg fields
    put item index of array into bg field index
  end repeat
  unlock screen with zoom close
  set cursor to hand
end mouseUp


-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=50 top=83 right=97 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Number of Tasks


-- part 38 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=21 top=151 right=165 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Weight


-- part contents for card part 38
----- text -----
Total Points

-- part contents for background part 14
----- text -----
3

-- part contents for background part 15
----- text -----
3

-- part contents for background part 16
----- text -----
100.0

-- part contents for background part 61
----- text -----
73.8

-- part contents for background part 62
----- text -----
86.9

-- part contents for background part 63
----- text -----
75.1

-- part contents for background part 64
----- text -----
83.7

-- part contents for background part 65
----- text -----
59.9

-- part contents for background part 66
----- text -----
70.3

-- part contents for background part 67
----- text -----
85.1

-- part contents for background part 68
----- text -----
73.1

-- part contents for card part 37
----- text -----
are 0 tasks

-- part contents for background part 13
----- text -----
13

-- part contents for background part 9
----- text -----
1

-- part contents for card part 3
----- text -----
Term 1

-- part contents for background part 78
----- text -----
Omit

-- part contents for background part 5
----- text -----
Assignments

-- part contents for background part 6
----- text -----
Exams

-- part contents for background part 7
----- text -----
Term 1 Mark

-- part contents for background part 8
----- text -----
Exams

-- part contents for background part 10
----- text -----
1

-- part contents for background part 11
----- text -----
1

-- part contents for background part 12
----- text -----
1

-- part contents for background part 17
----- text -----
25.0

-- part contents for background part 18
----- text -----
Omit

-- part contents for background part 19
----- text -----
0.0

-- part contents for background part 20
----- text -----
75.0

-- part contents for background part 21
----- text -----
Omit

-- part contents for background part 22
----- text -----
0.0

-- part contents for background part 23
----- text -----
0.0

-- part contents for background part 24
----- text -----
Omit

-- part contents for background part 25
----- text -----
0.0

-- part contents for background part 29
----- text -----
92.5

-- part contents for background part 30
----- text -----
85.0

-- part contents for background part 31
----- text -----
67.5

-- part contents for background part 32
----- text -----
87.5

-- part contents for background part 33
----- text -----
52.5

-- part contents for background part 34
----- text -----
64.0

-- part contents for background part 35
----- text -----
77.5

-- part contents for background part 36
----- text -----
82.5

-- part contents for background part 37
----- text -----
67.6

-- part contents for background part 38
----- text -----
87.6

-- part contents for background part 39
----- text -----
77.6

-- part contents for background part 40
----- text -----
82.4

-- part contents for background part 41
----- text -----
62.4

-- part contents for background part 42
----- text -----
72.4

-- part contents for background part 43
----- text -----
87.6

-- part contents for background part 44
----- text -----
70.0

-- part contents for background part 45
----- text -----
Omit

-- part contents for background part 46
----- text -----
Omit

-- part contents for background part 47
----- text -----
Omit

-- part contents for background part 48
----- text -----
Omit

-- part contents for background part 49
----- text -----
Omit

-- part contents for background part 50
----- text -----
Omit

-- part contents for background part 51
----- text -----
Omit

-- part contents for background part 52
----- text -----
Omit

-- part contents for background part 69
----- text -----
B-

-- part contents for background part 70
----- text -----
A-

-- part contents for background part 71
----- text -----
B

-- part contents for background part 72
----- text -----
B+

-- part contents for background part 73
----- text -----
C-

-- part contents for background part 74
----- text -----
B-

-- part contents for background part 75
----- text -----
A-

-- part contents for background part 76
----- text -----
B-

-- part contents for card part 4
----- text -----
Task 4:16:52 PM

-- part contents for card part 5
----- text -----
Task 4:11:52 PM